home *** CD-ROM | disk | FTP | other *** search
- 10 POKE53281,1:POKE53280,13:POKE646,0:PRINT"[147]SELECT BY LETTER":DN=PEEK(186)
- 20 PRINT" A MAIN PROGRAM"
- 40 PRINT" B LIST LOCATIONS"
- 60 PRINT" C NAME COUNTER"
- 80 PRINT" D OTHER PROGRAMS"
- 90 PRINT" E QUIT"
- 150 PRINT"CHOICE?"
- 160 GETA$:IFA$=""THEN160
- 170 IFA$="A"THENB$="MAIN PROGRAM"
- 190 IFA$="B"THENB$="LIST LOCATIONS"
- 210 IFA$="C"THENB$="NAME COUNTER"
- 230 IFA$="D"THENB$="LOAD AND RUN"
- 240 IFA$="E"THENEND
- 310 IFB$=""THEN160
- 320 IR=PEEK(53281):SC=PEEK(646)
- 330 PRINT"[147]":POKE646,IR:PRINT"LOAD"CHR$(34);
- 340 POKE646,0:PRINTB$;:POKE646,IR:PRINTCHR$(34);:PRINT",DN"
- 345 PRINT"POKE646,SC:RUN"
- 350 POKE631,13:POKE632,13:POKE198,2:PRINT"":END
-